home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 2,401 to 2,500 / aol-file-protocol-4400-2401-to-2500.zip / AOLDLs / PC Business Library / MLM Database Program / DHERB.exe / HLDEMO / UPDATE.SC < prev    next >
Text File  |  1994-04-20  |  866b  |  41 lines
  1. FIX=""
  2. SHOWDIALOG "RUN AN UPDATE SCRIPT" @3,15 HEIGHT 12 WIDTH 45
  3.  
  4.   @1,1 ?? " This procedure should only be run when"
  5.   @2,1 ?? " advised by the vendor for program updates" 
  6.   @3,1 ?? " or special reports. Type the authorized"
  7.   @4,1 ?? " script name and press Enter."
  8.   @6,7 ?? "SCRIPT NAME:"
  9.  
  10.   @8,1?? "ALT-O =>"
  11.   @8,34?? "<= ALT-C"
  12.   ACCEPT @6,19
  13.   WIDTH 11 "A8"
  14.   TAG "UPDATE"
  15.   TO FIX
  16.   
  17.    PUSHBUTTON @8,9 WIDTH 10
  18.    "~O~K"
  19.     OK
  20.    DEFAULT
  21.    VALUE "Accept"
  22.    TAG "OKtag"
  23.    TO Bv1
  24.    
  25.    PUSHBUTTON @8,24 WIDTH 10
  26.    "~C~ancel"
  27.    CANCEL
  28.    VALUE "Cancel"
  29.    TAG "Cancletag"
  30.    TO Bv1
  31.  
  32. ENDDIALOG     
  33. ECHO OFF
  34.   IF Retval=True AND NOT ISBLANK(FIX) THEN
  35.     IF ISFILE(FIX + ".sc") THEN
  36.     PLAY FIX
  37.     ELSE  
  38.     MESSAGE "THE SCRIPT ",FIX," COULD NOT BE FOUND"
  39.     SLEEP 5000
  40.     ENDIF
  41.   ENDIF